
Partial Class Controls_ShoppingCart
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Me.IsPostBack Then
            If Me.Profile.ShoppingCart.Items.Count > 0 Then
                repOrderItems.DataSource = Me.Profile.ShoppingCart.Items
                repOrderItems.DataBind()

                lblSubtotal.Text = Me.Profile.ShoppingCart.Total
                lblSubtotal.Visible = True
                panLinkShoppingCart.Visible = True

            Else
                panLinkShoppingCart.Visible = False

            End If
        End If


    End Sub
End Class
